home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / vis082s.arc / THINGS.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-17  |  1KB  |  43 lines

  1.  
  2. (***
  3. This One Goes in SUBS2.PAS - Right where it
  4. it trys to print type menu if the Function Menu
  5. ***)
  6.  
  7. if k='?'
  8.       then
  9.         begin
  10.           if not configset.normenu {<- take that out } then begin
  11.             if mfn='MAIN' then mmenu;
  12.             if mfn='RUMOR' then rummenu;
  13.             if mfn='BBSLIST' then bbsmenu;
  14.             if Mfn='SDOORS' then Sdoors;
  15.             if mfn='BULLET' then bulletm;
  16.             if mfn='CONFIG' then configm;
  17.             if mfn='DATA' then datam;
  18.             if mfn='DOORS' then doorsm;
  19.             if mfn='EMAIL' then emailm;
  20.             if mfn='VOTING' then votingm;
  21.             if mfn='FILE' then filem;
  22.             if mfn='GROUP' then groupm;
  23.             if mfn='SPONSOR' then sponsorm;
  24.             if mfn='SYSOP' then sysopm;
  25.             if mfn='NEWS' then newsm;
  26.             if mfn='FEED' then feedm;
  27.             if mfn='ABOUT' then aboutm;
  28.             if mfn='DSYSOP' then dsysopm;
  29.             if mfn='ESYSOP' then esysopm;
  30.             if mfn='VSYSOP' then vsysopm;
  31.             if mfn='FSYSOP' then fsysop;
  32.             if mfn='UEDIT' then ueditm;
  33.             if mfn='FBATCH' then batchm;
  34.             if mfn='NEWSCAN' then fnewscan;
  35.             if mfn='FCHANGE' then fchange;
  36.             if mfn='GFILE' then gfile;
  37.             if mfn='SGFILE' then sgfile;
  38.             if mfn='CONFIGL' then configl;
  39.             if mfn='ESCAN' then escan;
  40.             end
  41.  
  42.  
  43.